home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / CopyDicts.xdme < prev    next >
Text File  |  1995-08-14  |  354b  |  15 lines
  1. /* $VER: CopyDicts.xdme 2.0 (14 Aug 1995) */
  2.  
  3. dir = GetENV("DDIR")
  4. dic = GetENV("Dict")
  5. num = WORDS(dic)
  6. DO i = 1 TO num
  7.     d = WORD(dic, i)
  8.     IF VERIFY(d, ":/", 'M') == 0 THEN DO
  9.         xcom = "copy" dir || d "RAM:"
  10.         ADDRESS COMMAND xcom
  11.         xcom = "copy" dir || LEFT(d, LENGTH(d)-2) || "dx RAM:"
  12.         ADDRESS COMMAND xcom
  13.     END
  14. END
  15.